You have learned the basics of working with Compel.
Congratulations on a job well done!
:PHYSSIZE
"VideoArea"
tbkMCIchk("
\compel\hawaii1.avi type AVIVideo alias VideoCompel style popup
" && sysClientHandle,"",1,1)
tbkMCIPositionWindow(
play
0 wait","",1,1)
close
","",1,1)
enterpage
enterpage
VideoArea
open \compel\hawaii1.avi type AVIVideo alias VideoCompel style popup parent
tbkMCIchk
VideoArea
tbkMCIPositionWindow
play VideoCompel from 0 wait
tbkMCIchk
close VideoCompel
tbkMCIchk
VideoArea
VideoCompel
videoarea
'"picture"
playwave("\compel\dline2m2.
enterpage
enterpage
picture
vplaywave
\compel\dline2m2.wav
picture
picture
:PHYSSIZE
:PHYSSIZE
-- Script
bring the ToolBook screen
full
EnterBook
-- handler.
Will work
4resolution.
-- Use
each
initbook
c"&Utility"
e"Edit &Page
8Object
e"&Get Bounds
Selection"
c"&Style"
e"Arial 14 Field"
EditPageScript
EditBookScript
EditObjectScript
<> ""
GetBoundsOfSelection
ZoldSelect
-5,-5
-2,-2
"temp"
split_groups objlist
Zretval
theobj
Arial14Field
changeFieldFormat "
%",14,
newFace, newSize,
ZtheObj
initBook
4curstep
4clickable
4nonclickable
-- need
2 -- Arrow
buttoncolor
0,75.3125,0
linkDLL "TBKWIN.
INT xUnitsFromPixels(
yUnitsFromPixels(
Suser"
GetSystemMetrics(
width
height
capHeight
getSystemMetrics(4)
resize borders
bwidth
bheight
-- Open
maximum
-1*
J,-1*
clientarea_y
17)+28
clientarea_x
16)+8
-- Convert pixels
units.
clientarea_y_units
sysMagnification,
clientarea_x_units
-- Define
-- General purpose
4-wide stuff
gotomain
8"\multi\mainmenu.tbk"
-- PlayWave
-- Plays
passed wave file
-- Waits
finish
4returning
-- opens
closes
waveaudio device
-- will abort
ferror message
-- already
theFile
ZstrOpen
" &&
&& "type
valias wavefile"
tbkMCIchk(
>,"",1,1)
"play
0 wait","",1,1)
G,"",1,1)
PlayMidi
" &&
&& "
sequencer
midifile"
,"",1,1)
2,"",1,1)
} a Video
-- Need
video (
PlayVideo
" &&
&& "
,"",1,1)
,"",1,1)
-- PlayAnimation:
animation (
{which holds
place (thePlace)
" &&
&& "
anim1 style popup"
,"",1,1)
c:\toolbook\flow.fli
E,"",1,1)
tbkMCIPositionWindow("
","",1,1)
-- Alter:
This one does
{animations
alter obj,slice
ZCx1,Cx2,Cy1,Cy2,Gx1,Gx2,Gy1,Gy2
ZIx1,Ix2,Iy1,Iy2
going
Plast
coming
Pfirst
newBounds
yieldApp()
-- default
-- locks
-- unlocks
-- If use clicks
Mlocation
objectFromPoint(
-- ignore
xreleased over
UN-COMMENT THIS WHEN READY
Arial14Field
enterbook
changeFieldFormat
initBook
EditBookScript
author
reader
gotomain
EditObjectScript
PlayWave
PlayMidi
EditPageScript
PlayVideo
PlayAnimation
alter
GetBoundsOfSelection
leavepage
enterpage
leavebook
split_groups
enterbook
ulinitbook
&Utility
Edit &Page Script
&Utility
Edit &Book Script
&Utility
Edit &Object Script
&Utility
&Get Bounds of Selection
&Utility
&Style
Arial 14 Field
&Style
EditPageScript
EditBookScript
EditObjectScript
GetBoundsOfSelection
clear
oldSelect
split_groups
group
Wungroup
theobj
retval
objlist
Arial14Field
changeFieldFormat
Arial
changeFieldFormat
theObj
objlist
newSize
newFace
initBook
TBKWIN.DLL
xUnitsFromPixels
yUnitsFromPixels
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
getSystemMetrics
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
yUnitsFromPixels
xUnitsFromPixels
clientarea_x_units
clientarea_y_units
clientarea_x
clientarea_y
bheight
bwidth
capHeight
height
width
buttoncolor
nonclickable
clickable
curstep
author
reader
ulinitBook
gotomain
\multi\mainmenu.tbk
PlayWave
type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
strOpen
theFile
PlayMidi
type sequencer alias midifile
tbkMCIchk
play midifile from 0 wait
tbkMCIchk
close midifile
tbkMCIchk
strOpen
theFile
PlayVideo
type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
strOpen
theFile
PlayAnimation
alias anim1 style popup
tbkMCIchk
anim1
tbkMCIPositionWindow
play anim1 wait
tbkMCIchk
close anim1
tbkMCIchk
strOpen
thePlace
theFile
alter
Plast
Pfirst
yieldApp
newBounds
coming
going
slice
leavepage
enterpage
leavebook
location
bullet1
bullet1
:PHYSSIZE
bullet2
:PHYSSIZE
bullet3
:PHYSSIZE
pfirst
-5295,2280,675,3345
plast
630,2295,6645,3360
pfirst
-5115,3600,690,4755
plast
630,3615,6435,4770
pfirst
-4365,5040,630,5820
plast
630,5040,5625,5820
pfirst
630,5040,5625,5820
plast
630,5040,5625,5820
630,2295,6645,3405
-5295,2280,675,3345
630,2295,6645,3405
:PHYSSIZE
eatClicks()
buttonup
buttonup
eatClicks
EL3a.TBK
[-a-]
[-b-]
[-c-]
[-h-]
enterpage
enterpage
:PHYSSIZE
:PHYSSIZE
This concludes the Compel lesson.
You have learned the basics of working with Compel. Your boss is quite impressed, AND the sales team is motivated. Congratulations on a job well done!!!!!
Picture here of boss & mgr shaki
Picture here of boss &
mgr shaking hands... well done
play VideoCompel from 0 wait
tbkMCIchk
close VideoCompel
tbkMCIchk
VideoCompel
VideoArea
You win ... a trip to Hawaii!
o on this slide!
sound should play here (it's not!) - note to LK - having other problems here. Let's talk Mon..
:PHYSSIZE
4clickable
4nonclickable
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
clickable
mouseLeave
nonclickable
buttonup
4clickable
4nonclickable
gotomain
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
clickable
mouseLeave
nonclickable
buttonup
kgotomain
/.-'+
4clickable
4nonclickable
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
clickable
mouseLeave
nonclickable
buttonup
4clickable
4nonclickable
8"compel.tbk"
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
clickable
mouseLeave
nonclickable
buttonup
compel.tbk
4clickable
4nonclickable
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
clickable
mouseLeave
nonclickable
buttonup
4clickable
4nonclickable
gotomain
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
clickable
mouseLeave
nonclickable
buttonup
kgotomain
/.-'+
4clickable
4nonclickable
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
clickable
mouseLeave
nonclickable
buttonup
4clickable
4nonclickable
ouseEnter
mouseLeave
mouseEnter
buttonup
mouseEnter
clickable
mouseLeave
nonclickable
buttonup
Compel - Summaryion
bullet1
bullet2
llet1
picture
:PHYSSIZE
Compel also includes these::::::::::e basic features of Compel
to create a presentation. Compel also includes other features::
bullet1
pfirst
2265,2775,2580,3210
plast
2265,2775,2580,3210
You can create special bullet effects -- such as animated bullets, dimmed bullets for points already covered, hidden bullets that reveal one by one, or custom bullet graphics.
rder them.
You can autobuild slides to create automatic links between bullets.
You can create your own template with your logo or design.
bullet2
, pfirst
2910,3420,9150,3465
plast
2925,4260,8775,4320
You can create your own template with your logo or design.
n create special bullet effects -- such as animated bullets, dimmed bullets for points already covered, hidden bullets that reveal one by one, or custom bullet graphics.
links between bullets.
You can create your own template with your logo or design.
bullet3
pfirst
2925,3630,8775,4575
plast
2910,5565,8730,5625
You can create hotwords -- areas on the screen that link to animations or additional information.
You can use slide sorter view to see minatures of your slides and easily reorder them.
You can autobuild slides to create automatic links between bullets.
You can create your own template with your logo or design.
bullet1
2910,3420,9150,3465
bullet1
plast
2265,2775,2580,3210
bullet1
bullet3
2910,4605,8730,5625
2910,2040,9150,3630
2910,4605,8730,5625
plast
picture
:PHYSSIZE
bullet3
plast
2265,2445,2580,2880
pfirst
2265,2445,2580,2880
You can print your slides on paper, transparencies, or create 35 mm slides.
for points already covered, hidden bullets that reveal one by one, or custom bullet graphics.
rder them.
You can autobuild slides to create automatic links between bullets.
You can create your own template with your logo or design.
bullet1
plast
2265,4125,2580,4560
pfirst
2265,4125,2580,4560
You can create charts right in Compel or retrieve worksheet data from other programs.
ullets, dimmed bullets for points already covered, hidden bullets that reveal one by one, or custom bullet graphics.
links between bullets.
You can create your own template with your logo or design.
bullet4
plast
pfirst
2265,4695,2580,5130
You can create interactive or entirely automatic presentations.
... and more!
see minatures of your slides and easily reorder them.
You can autobuild slides to create automatic links between bullets.
You can create your own template with your logo or design.
bullet2
pfirst
2895,6495,8745,7440
plast
2925,3810,8775,4755
You can animate your own objects.
nsparencies, or create 35 mm slides.
for points already covered, hidden bullets that reveal one by one, or custom bullet graphics.
rder them.
You can autobuild slides to create automatic links between bullets.
You can create your own template with your logo or design.
Compel also includes these::::::::::e basic features of Compel
to create a presentation. Compel also includes other features::
bullet4
plast
2265,4695,2580,5130
pfirst
2265,4125,2580,4560
bullet3
plast
2265,3750,2580,4185
pfirst
2250,3390,2565,3825
bullet2
plast
2250,3015,2565,3450
pfirst
2265,2445,2580,2880
2265,4695,2580,5130
2895,2145,9135,2880
pfirst
2895,6480,9135,7215
bullet1
pfirst
2265,3750,2580,4185
15,4695,2580,5160
2895,3120,9135,3630
2910,4770,8730,5790
2265,3750,2580,4185
9135,3120,15375,3630
9135,4770,14955,5790
2265,3750,2580,4185
"bullet1"
-15,2070,2580,2505
2895,6480,9135,7215
"bullet2"
-180,3075,135,3510
9135,3120,15375,3630
"bullet3"
-135,3780,180,4215
2895,6495,8745,7440
"bullet4"
-135,4695,180,5130
9135,4770,14955,5790
pfirst
-15,2070,2580,2505
plast
2265,2070,2580,2505
alter
2895,6480,9135,7215
2895,2145,9135,2880
-180,3075,135,3510
2250,3015,2565,3450
2250,3015,2565,3450
2265,2445,2580,2880
2265,2445,2580,2880
2250,3015,2565,3450
2265,2070,2580,2505
2250,3015,2565,3450
9135,3120,15375,3630
2895,3120,9135,3630
-135,3780,180,4215
2265,3750,2580,4185
2265,3750,2580,4185
2250,3390,2565,3825
2250,3390,2565,3825
2265,3750,2580,4185
2250,3015,2565,3450
2265,3750,2580,4185
2895,6495,8745,7440
2925,3810,8775,4755
-135,4695,180,5130
2265,4695,2580,5130
2265,4695,258
:PHYSSIZE
This concludes the Compel lesson.
You have learned the basics of working with Compel. Your boss is quite impressed, AND the sales team is motivated. Congratulations on a job well done!!!!!
tbkMCIchk("
\compel\compel1.avi type AVIVideo alias video1 style popup
" && sysClientHandle,"",1,1)
tbkMCIPositionWindow(
"congrats","")
play
0 wait","",1,1)
close
","",1,1)
enterpage
enterpage
open \compel\compel1.avi type AVIVideo alias video1 style popup parent
tbkMCIchk
congrats
tbkMCIPositionWindow
play video1 from 0 wait
tbkMCIchk
close video1
tbkMCIchk
video1
:PHYSSIZE
:PHYSSIZE
congrats
bullet1
bullet1a
bullet1
2925,3630,8775,4575
bullet3
bullet4
bullet4
picture
-- Professor MULTIMEDIA
Version 1.00 *
-- Copyright (c) Individual Software Inc. 1992-1993
All Rights Reserved *
-- This document
cproprietary
confidential information.
-- parts
the computer program
embodies may be
way copied, duplicated, reproduced, translated
a different
-- programming language,
distributed
person, company,
-- corporation without
prior written consent
-- Script
bring
ToolBook screen
full
EnterBook
-- handler.
Will work
5resolution.
-- Use
each
"pmm.sbk"
"tbkmm.
initbook
c"&Utility"
e"Edit &Page
;Object
e"&Get Bounds
Selection"
c"&Style"
e"Arial 14 Field"
EditPageScript
EditBookScript
EditObjectScript
<> ""
GetBoundsOfSelection
ZoldSelect
-5,-5
-2,-2
"temp"
split_groups objlist
Zretval
theobj
Arial14Field
changeFieldFormat "
%",14,
newFace, newSize,
ZtheObj
initBook
4curstep
4clickable
4nonclickable
-- need
2 -- Arrow
buttoncolor
0,75.3125,0
linkDLL "TBKWIN.
INT xUnitsFromPixels(
yUnitsFromPixels(
Suser"
GetSystemMetrics(
width
height
capHeight
getSystemMetrics(4)
resize borders
bwidth
bheight
-- Open
maximum
-1*
J,-1*
clientarea_y
17)+28
clientarea_x
16)+8
-- Convert pixels
units.
clientarea_y_units
sysMagnification,
clientarea_x_units
-- Define
-- These functions
allocating global memory
kernel"
WORD GlobalAlloc(
,DWORD)
POINTER GlobalLock(
2Unlock(
@Free(
looks
)messages
queue
PeekMessage(
adds our special cursor
mycursor.dll"
SetSpecialCursor(STRING)
GetSpecialCursor()
-- General purpose
4-wide stuff
gotomain
8"\mainmenu\
.tbk"
-- PlayWave
-- Plays
passed wave file
-- Waits
finish
4returning
-- opens
closes
waveaudio device
-- will abort
ferror
-- already
theFile
ZstrOpen
" &&
&& "type
ralias wavefile"
tbkMCIchk(
>,"",1,1)
"play
0 wait","",1,1)
G,"",1,1)
PlayMidi
" &&
&& "
sequencer
midifile"
,"",1,1)
2,"",1,1)
} a Video
-- Need
video (
PlayVideo
" &&
&& "
,"",1,1)
,"",1,1)
-- PlayAnimation:
animation (
{which holds
place (thePlace)
" &&
&& "
anim1 style popup"
,"",1,1)
c:\toolbook\flow.fli
E,"",1,1)
tbkMCIPositionWindow("
","",1,1)
-- Alter:
one does
{animations
alter obj,slice
ZCx1,Cx2,Cy1,Cy2,Gx1,Gx2,Gy1,Gy2
ZIx1,Ix2,Iy1,Iy2
going
Plast
coming
Pfirst
newBounds
yieldApp()
-- default
-- locks
-- unlocks
-- If use clicks
Mlocation
objectFromPoint(
-- ignore
xreleased over
UN-COMMENT THIS WHEN READY
Arial14Field
enterbook
changeFieldFormat
initBook
EditBookScript
author
reader
gotomain
EditObjectScript
PlayWave
PlayMidi
EditPageScript
PlayVideo
PlayAnimation
alter
GetBoundsOfSelection
leavepage
enterpage
leavebook
split_groups
enterbook
pmm.sbk
pmm.sbk
tbkmm.sbk
tbkmm.sbk
ulinitbook
&Utility
Edit &Page Script
&Utility
Edit &Book Script
&Utility
Edit &Object Script
&Utility
&Get Bounds of Selection
&Utility
&Style
Arial 14 Field
&Style
EditPageScript
EditBookScript
EditObjectScript
GetBoundsOfSelection
clear
oldSelect
split_groups
group
Wungroup
theobj
retval
objlist
Arial14Field
changeFieldFormat
Arial
changeFieldFormat
theObj
objlist
newSize
newFace
initBook
TBKWIN.DLL
xUnitsFromPixels
yUnitsFromPixels
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
getSystemMetrics
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
GetSystemMetrics
yUnitsFromPixels
xUnitsFromPixels
kernel
GlobalAlloc
GlobalLock
GlobalUnlock
GlobalFree
PeekMessage
mycursor.dll
SetSpecialCursor
GetSpecialCursor
clientarea_x_units
clientarea_y_units
clientarea_x
clientarea_y
bheight
bwidth
capHeight
height
width
buttoncolor
nonclickable
clickable
curstep
author
reader
ulinitBook
gotomain
\mainmenu\mainmenu.tbk
PlayWave
type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
strOpen
theFile
PlayMidi
type sequencer alias midifile
tbkMCIchk
play midifile from 0 wait
tbkMCIchk
close midifile
tbkMCIchk
strOpen
theFile
PlayVideo
type waveaudio alias wavefile
tbkMCIchk
play wavefile from 0 wait
tbkMCIchk
close wavefile
tbkMCIchk
strOpen
theFile
PlayAnimation
alias anim1 style popup
tbkMCIchk
anim1
tbkMCIPositionWindow
play anim1 wait
tbkMCIchk
close anim1
tbkMCIchk
strOpen
thePlace
theFile
alter
Plast
Pfirst
yieldApp
newBounds
coming
going
slice
leavepage
enterpage
leavebook
location
GlobalLock
PeekMessage
PeekMessage
PeekMessage
GlobalUnlock
GlobalFree
wFlags
dwBytes
lpMsg
Times New Roman
Times New Roman
Arial
s Serif
System
Arial
Arial
Arial
Arial
System
System
:PHYSSIZE
title
You win ... a trip to Hawaii!
:PHYSSIZE
bullet2
plast
alter
bullet2
bullet3
bullet3
pfirst
bullet3
plast
alter
bullet3
bullet3
pfirst
bullet3
plast
alter
bullet3
bullet2
bullet3
pfirst
bullet3
plast
alter
bullet3
bullet3
bullet3
pfirst
bullet3
plast
alter
bullet3
picture
bullet3
leavepage
bullet1
bullet1
bullet2
bullet2
bullet3
bullet3
picture
picture
picture
:PHYSSIZE
Note: For these pictures I think it would be nice to use stills from the "scenario" video at the beginning of the lesson ("the boss", "sales mgr", etc.)
Are you ready to see your slide show? Now that you've added multimedia elements to a presentation, let's see what it looks like! Presenting your slide show on the computer monitor is as easy as choosing a menu option: View Slide Show From First Slide.
ide show will be self-running ... just sit back, relax, and enjoy!
Background media link -- This
Try again. Click on From First Slide from the View Slide Show menu.......